home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The CICA Windows Explosion!
/
The CICA Windows Explosion! - Disc 2.iso
/
programr
/
upc12bs1.zip
/
LIB
/
bugout.c
< prev
next >
Wrap
C/C++ Source or Header
|
1993-08-02
|
2KB
|
61 lines
/*--------------------------------------------------------------------*/
/* b u g o u t . c */
/* */
/* Support routines for UUPC/extended */
/* */
/* Changes Copyright 1990, 1991 (c) Andrew H. Derbyshire */
/* */
/* History: */
/* 21Nov1991 Break out of lib.c ahd */
/*--------------------------------------------------------------------*/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#ifdef _Windows
#include <windows.h>
#endif
/*--------------------------------------------------------------------*/
/* UUPC/extended include files */
/*--------------------------------------------------------------------*/
#include "lib.h"
#include "catcher.h"
#include "timestmp.h"
#ifdef _Windows
#include "winutil.h"
#endif
/*--------------------------------------------------------------------*/
/* b u g o u t */
/* */
/* Perform a panic() exit from UUPC/extended */
/*--------------------------------------------------------------------*/
void bugout( const size_t lineno, const char *fname )
{
#ifdef _Windows
char buf[BUFSIZ];
#endif
printmsg(0,"%s aborting at line %d in file %s",
compilen, lineno, fname );
#ifdef _Windows
sprintf(buf,"%s aborting at line %d in file %s",
compilen, lineno, fname );
MessageBox( hOurWindow, buf, compilen, MB_ICONEXCLAMATION );
#else
fputc('\a',stderr);
#endif
exit(panic_rc);
} /*bugout */